100 POKE 53281,0:POKE 53280,0:PRINT CHR$(5)CHR$(142)CHR$(8)
110 PRINT"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
120 D$="[194][146]                                     [194]"
130 PRINT D$:PRINT D$
140 PRINT"[194][146]             HAUPTMENUE              [194]
150 [129] N[178]1 [164] 3:[153] D$:[130] N
160 [153]"PEEKWAIT      F1WAIT   WOCHENTAG BESTIMMEN       PEEK
170 FOR N=1 TO 3:PRINT D$:NEXT N
180 PRINT"[194][146]      F3[146]   TAGE ZWISCHEN DATEN       [194]
190 [153] D$
200 [153]"PEEKWAIT           -OHNEWAIT MINUTEN & STUNDEN   PEEK
210 FOR N=1 TO 3:PRINT D$:NEXT N
220 PRINT"[194][146]      F5[146]   TAGE ZWISCHEN DATEN       [194]
230 [153] D$
240 [153]"PEEKWAIT           -MIT WAIT MINUTEN & STUNDEN   PEEK
250 FOR N=1 TO 3:PRINT D$:NEXT N
260 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
270 GET A$
280 IF A$=CHR$(133) THEN 330
290 IF A$=CHR$(134) OR A$=CHR$(135) THEN 470
300 GOTO 270
310 :
320 :
330 REM UNTERPROGRAMM WOCHENTAGBESTIMMUNG
340 I=1:GOSUB 680:GOSUB 1030
350 IF WO=0 THEN B$=" SAMSTAG "
360 IF WO=1 THEN B$=" SONNTAG "
370 IF WO=2 THEN B$=" MONTAG "
380 IF WO=3 THEN B$=" DIENSTAG "
390 IF WO=4 THEN B$=" MITTWOCH "
400 IF WO=5 THEN B$=" DONNERSTAG "
410 IF WO=6 THEN B$=" FREITAG "
420 PRINT" WOCHENTAG        :"B$
430 PRINT"":GOSUB 830:GOTO 340
440 :
450 :
460 REM TAGE ZWISCHEN DATEN
470 FOR I=1 TO 2:GOSUB 680:GOSUB 1030
480 F(I)=F:NEXT I
490 ND=F(2)-F(1)
500 IF A$=CHR$(135) THEN 580
510 :
520 REM -- OHNE MINUTEN/STUNDEN
530 PRINT" ANZAHL DER TAGE  :     "ND
540 GOSUB 930:PRINT"":GOSUB 830:GOSUB 470
550 :
560 :
570 REM -- MIT  MINUTEN/STUNDEN
580 GG=60*H(2)+MI(2)-(60*H(1)+MI(1))
590 IF GG<0 THEN ND=ND-1:H(2)=H(2)+24:GOTO 580
600 H=INT(GG/60):M=GG-60*H
610 PRINT" "ND"[146]TAGE  "H"[146]STUNDEN  "M"[146]MINUTEN"
620 XX=ND*1440+GG
630 PRINT" ODER IN TAGEN    : "INT(XX/14.4+.5)/100
640 PRINT" ODER IN STUNDEN  : "INT(XX/.6+.5)/100
650 GOSUB 930:PRINT"":GOSUB 830:GOSUB 470
660 :
670 :
680 REM EINGABE DER DATENPARAMETER
690 PRINT"[147]"
700 POKE19,64:INPUT" JAHR Z.B.  1986  :";Y(I):PRINT
710 IF Y(I)<1582 THEN 690
720 INPUT" MONAT            :";M(I):PRINT
730 IF M(I)>12   THEN 690
740 INPUT" TAG              :";D(I):PRINT:POKE19,0
750 IF D(I)>31   THEN 690
760 IF A$<>CHR$(135) THEN 790
770 POKE19,64:INPUT" STUNDEN          :";H(I):PRINT
780 INPUT" MINUTEN          :";MI(I):PRINT:POKE19,0
790 RETURN
800 :
810 :
820 REM UNTERMENUE-GRAPHIC DARSTELLEN
830 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
840 PRINT"[194]   E[146]NDE    H[146]AUPTMENUE    N[146]OCHEINMAL  [194]"
850 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
860 GET C$
870 IF C$="E" THEN END
880 IF C$="H" THEN CLR:GOTO 100
890 IF C$="N" THEN RETURN
900 GOTO 860
910 :
920 REM POKE-UNTERPROGRAMM
930 POKE 211,18:POKE214,4:SYS58640:PRINT" BIS         VON "
940 POKE 211,18:POKE214,5:SYS58640:PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
950 POKE 211,30:POKE214,7:SYS58640:PRINT Y(1)
960 POKE 211,30:POKE214,9:SYS58640:PRINT M(1)
970 POKE 211,30:POKE214,11:SYS58640:PRINT D(1)
980 IF A$<>CHR$(135) THEN 1010
990 POKE 211,30:POKE214,13:SYS58640:PRINT H(1)
1000 POKE 211,30:POKE214,15:SYS58640:PRINT MI(1)
1010 RETURN
1020 :
1030 REM UNTERROUTINE ZUR BESTIMMUNG VON FAKTOR F
1040 F1=365*Y(I)+D(I)+31*(M(I)-1)
1050 IF M(I)>2 THEN 1080
1060 F2=INT((Y(I)-1)/4)-INT(3/4*(INT(((Y(I)-1)/100)+1)))
1070 GOTO 1090
1080 F2=-INT(.4*M(I)+2.3)+INT(Y(I)/4)-INT(3/4*(INT(Y(I)/100)+1))
1090 F=F1+F2
1100 WO=F-INT(F/7)*7
1110 RETURN
1120 REM         ---- E N D E ----